﻿Imports System.ComponentModel

''' <summary>
''' 多段线数据, 用于自动绘图
''' 映射表: poly_line_data 
''' </summary>
Public Class PolyLineDataEntity

    Sub New()

    End Sub


    Sub New(ByRef dr As DataRow)
        id = dr("id")
        name = dr("name").ToString
        remark = dr("remark")
        For Each item As String In dr("coordinates").ToString.Split(",")
            coordinates.Add(item)
        Next
        For Each item As String In dr("bluges").ToString.Split(",")
            bluges.Add(item)
        Next
    End Sub

    <DisplayName("id")> Public Property id As Long
    <DisplayName("名称")> Public Property name As String
    <DisplayName("备注")> Public Property remark As String
    <DisplayName("坐标点集合")> Public Property coordinates As New List(Of Double)
    <DisplayName("凸度集合")> Public Property bluges As New List(Of Double)


End Class
